BALLY BASIC 


> 

U 2 . 

3 . 

4 . 

10 :RETURN ; NT=0 
15 &<9) = 107 
20 CLEAR ;BC=157 
25 FC=0 

30 CX=-30;CY=16;PRINT "BIORHYTHMS" 

40 PRINT ;CX=-39;FOR A=S7T0 99;TU=@CA);NEXT A 
50 PRINT ;CX=-57;FOR A=100TO 118;TU=@CA );NEXT A 
55 PRINT 

60 PRINT ;CX=-63;FOR A=119T0 140;TU=@CA );NEXT A 
100 FOR A=1T0 2400 
110 IF &'( 22 )=16G0T0 10 
120 IF &(23)=8G0T0 200 
130 NEXT A 
140 BC=1 
150 GOTO 100 
190 INPUT D,M,Y 

192 IF D>0IF D<32IF M>0IF M< 13RETIJRN 

195 GOTO 190 

200 CLEAR 

205 BC=250;FC=7 

210 CY=24;PRINT “ WHAT IS YOUR BIRTHDATE" 

220 PRINT 'C DAY, MONTH, YEAR - ALL" 

230 PRINT "DIGIT FORMAT PLEASE)?" 

240 GOSUB 190 
250 U=D;U=M;W=Y 
255 BC=87;FC=0 



280 CY=24;PRINT “WHAT IS TODAY'S DRTE 
285 CY=0; FOR A=.I TO' 3; PRINT " “; NEXT R 

270 CY=0;GOSUB 190 
280 CX=-30;PRINT ”THRNK YOU!" 

290 Q=Y-W 
300 T=Qb365+Qc4 
305 FOR R=0TO 1 
308 IF R=iT=-T 

310 FOR R=UTO 12 H . . . I 

320 T=T+30 Irlo^Vc-'S 

330 IF R#2IF R#4IF R#8IF R#9IF R*ll T=T+1 

340 IF R=2 T=T-2 -So XX*®. I 

350 NEXT R 

355 NEXT fl 

356 T=-T 
360 T=T+D-U 
370 P=Tc23;P=RM 
380 E=Tc28;E=RM+24 
390 I=Tc33;I=RN+53 
400 CLERR 

410 BC=125 

415 PRINT ;PRINT "YOU HAUE LIUED",#6,T," DAYS.“ 

420 PRINT 

430 PRINT "PHYSICAL INDEX:’,#9,@CP ) 

440 X=@CP>;GOSUB 1000 

480 PRINT "EMOTIONAL INDEX:’,#8,@(E ) 

470 X=@(E ) ;GOSUB 1000 

490 PRINT "INTELLECTUAL INDEX:",#4,@CI) 

500 X=@CI ) ;GOSUB 1000 
510 FOR Z=1T0 3000;NEXT Z 
520 CLERR 
525 CY=0 

530 PRINT "CYCLES: THE NEXT 2.5 DAYS’ 

535 FOR A=1TQ 1000;NEXT A;CLEAR 

537 &(9)=71;&(0)=253;&(1)=253;&C2 )=0;&<3)=0 

539 &(9 )=72 

540 CX=-75;CY=@(P);PRINT "P‘,;GOSUB 750 
550 CX=-68;CY=@(E);PRINT ”E",;GOSUB 750 
580 CX=-61;CY=@(I);PRINT "I",;GOSUB 750 
570 LINE -50,43,0 

580 LINE -50,-43,1 
590 LINE -50,0,0 
600 LINE 75,0,1 
610 LINE -75,@(P),0 
620 A=P;B=23;C=0 
630 GOSUB 800 
640 LINE -68,@CE),0 
650 A=E;B=52;C=24 
660 GOSUB 800 
670 LINE -61,@(I),0 
680 R=I;B=86;C=53 
690 GOSUB 800 
700 Y—42 

710 FOR X=-50TO 75STEP 5 
720 BOX X,Y,1,3,3 
730 NEXT X 
740 GOTO 100 

750 X=CX-7;Y=CY - -- ■ 






€' 


760 BOX X,Y,7,9,3 
770 RETURN 

800 FOR X=-50TO 75STEP 5 
810 Y=@(R) 

820 LINE X,Y,1 
830 R=R+15 IF fl=B R=C 
840 NEXT X 
850 RETURN 

1000 IF X>13PRINT “GOOD” 
1010 IF X>= - 13IF X<=13PRINT 
1020 IF X< -■ 13PRINT "BRD" 
1030 RETURN 

> 

BRLLY BASIC 


"CRITICAL!M!" 


““L_. 



>*PRINT ;LIST 
2 . 

4 . 

6 . 

10 :RETURN 

20 PRINT " COBALLY CHESS BOARD" 
30 PRINT " BY JOHN COLLINS 
50 GOSUB 3000;GOSUB 2000 


C4 

Cc'*" ■*■'***$. 


80 Q=l;GOSUB 1800;Q=-l 
80 GOSUB 1800;GOTO 80 

1000 M=-20+Kbl0;N=-45+Lbl0;IF (Lc2 )b2#LG0T0 1030 
1010 IF (Kc2)b2=KG0T0 1040 

1020 BOX M,N,10,10,2;IF G=1IF Q=1B0X M,N,8,8,1 
1025 RETURN 

1030 IF (Kc2)b2=KG0T0 1020 

1040 BOX M,N,10,10,1;IF G=1IF Q—1BOX M,N,8,8,2 
1045 RETURN 

1800 1=0;CX=-75;CY=40;IF Q=1PRINT " WHITE";GOTO 1805 
1802 PRINT " BLACK" 

1805 1=1+1;PRINT " FROM";INPUT " RANK“R;INPUT " FILE’S 
1807 IF R=0INPUT "LOC"S;INPUT "UAL",@(S );GOTO 1805 
1810 T=S+(R-1)b8;P=@( T);IF CT<1)+(T>64)GOTO 1805 
1820 IF @(T K1IF Q=lGOTO 1805 
1830 IF @C T)>-1IF Q=-1GOTO 1805 

1840 1=1+1;PRINT " TO";INPUT " RANK“U;INPUT " FILE’U 

1850 W=U+C U-1 )b8;IF (W<l) + (W>84 )GOTO 1840 

I860 IF @CW)>0IF Q=lGOTO 1840 

1870 IF @( W X0IF Q=- 1GOTO 1840 

1880 @(T)=0;@(W)=P 


1300 K=S;L=R;G=0;GOSUB 1000 
1910 K=U;L=U;G=1;GOSUB 1000 
1820 Z=2200+ABS(Pb10);GOSUB Z 

1325 IF ABSCP)=6IF ABS(T-W)=2 PRINT "MOUE ROOK";CX=-75;CY=30;GOTO 1805 
1830 IF I>2G0SUB 2000 
1840 RETURN 

2000 CLEAR ;BOX 25,0,88,86,3 

2010 FOR I = .1T0 G4;M=~20+C I-C C 1-1 )c8)b8)b!0 

2020 N=-35+(C1-1)c8)bl0 

2030 IF ((1-1 )c8) = (C(1-1 )c8)c2)b2GOTO 2040 
2032 IF (Ic2)b2#IB0X M,N,10,10,3 

2034 IF (Ic2)b2=IIF @(IK0BOX M,N,8,8,3 

2035 IF @CI )=0GOTO 2100 



>*PRINT ;LIST 
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2 . 

4 . 

6 . 

10 :RETURN 

20 PRINT " (C)BALLY CHESS BOARD" 

30 PRINT ” BY JOHN COLLINS 
50 GOSUB 3000;GOSUB 2000 
80 G=l;GOSUB 1800;Q=-l 
90 GOSUB 1800;GOTO 80 

1000 M=-20+Kbl0;N=-45+Lbl0;IF CLc2 )b2#LG0T0 1030 
1010 IF <Kc2)b2=KG0T0 10-40 

1020 BOX M,N, 10,10,2;IF G=1IF G=1B0X M,N,8,3,1 
1025 RETURN 

1030 IF (Kc2)b2=KG0T0 1020 

1040 BOX M,N,10,10,1;IF G=1IF Q=-1B0X M,N,8,8,2 
1045 RETURN 

1800 1=0;CX=-75;CY=40;IF Q=1PRINT " WHITE”;GOTO 1805 
1802 PRINT " BLACK" 

1805 1=1+1;PRINT ” FROM";INPUT ’ RANK“R;INPUT ' FILE’S 
1807 IF R=0INPUT "LOC"S;INPUT "UAL",@CS );GOTO 1805 
1810 T=S+(R-1 )b8;P=@C T );IF CT<1) + CT>84)GOTO 1805 
1820 IF @(T K1IF Q=lGOTO 1805 
1830 IF T)>-1IF Q=-1GOTO 1805 

1840 1=1+1;PRINT “ TO";INPUT " RANK“U;INPUT " FILE“U 

1850 W=U+< U-1 )b8;IF CW<1)+(W>G4)GOTO 1840 

1860 IF @(W)>0IF Q=lGOTO 1840 

1870 IF @(WX0IF Q=-lGOTO 1840 

1880 @(T)=0;@(W)=P 

1900 K=S;L=R;G=0;GOSUB 1000 

1910 K=U;L=U;G=1;GOSUB 1000 

1920 Z=2200+ABS(Pb10);GOSUB Z 

1925 IF ABSC P )=6IF ABS(T-W)=2 PRINT "MOUE ROOK";CX=-75;CY=30;GOTO 1805 
1930 IF I>2G0SUB 2000 
1940 RETURN 

2000 CLEAR ;BOX 25,0,86,86,3 

2010 FOR I=1T0 G4;M=-20+CI-((I-l)c8)b8)bl0 

2020 N=-35+((1-1)cB)bl0 

2030 IF ( ( 1-1 )c8)=C ( C 1-1 )c8)c2)b2G0T0 2040 
2032 IF CIc2)b2#IB0X M,N,10,10,3 

2034 IF CIc2)b2=IIF @(IK0BOX M,N,8,8,3 

2035 IF I )=0GOTO 2100 




Robert Fabris 
3626 Morris Dr. 

San Jose, CA 95127 


5/29/80 


Matt Giwer 

3922 Millcreek Dr. 

Annandale, VA 22003 








Dear Bob, 

Better late than never. 

On^ the enclosed tape you have 

Morse Code—a learning program with only the alphabet 
but expansion to the rest is obvious. 

LIFE IV—Thank you for run^ing^ the ad without the listing 
although I had expected you toT The* $6^, so far, isn't much 
but I can add to my resume a side business of selling software. 

I Ching—a brute force approach, no subtlety, but it 
runs well. 

Boxes, Spiral I, Spiral II—These are simply the most 
interesting automatic graphics I have come up with. Try some. 

Psychic Power Test—A simple Rhine card ip type test. It 
could use a lot more sophisticating but what the hell it works. 


XbOx There is about a count of ten between each program. They 
are all self explanatory except LIFE IV which takes a littel fooling 
with to figure out. 

Fell free to run any nth of them except LIFE IV since you ran 
the ad without the listing and my customers, both of them, would 
have every right to be upset.* If you kept the first listing I sent 
you you could run that with the note that the better version is 
for sat sale. 

Your doing a great job. Artillery Duel is great. My sons 
loves it (5 in Jlly). 

I also have a a stolen TIC-TAC-TOE game. Interested in 
running it? It can't be beaten so kids lose interest. Let me 
know ifjou want it as the graphies as still alphanumeric for use 
with a pxii printer. I'll make them at least acceptable but 
probably not too sophisticated. 

Also I hav| v started more games than I have finished. Fer 
example, a ^e arni i jg program for simple addition. Interested in these? 
Not great but ixy they can get people off the ground id; if they 
know some programming. The basid structure is xx instructive. 



M 



y 1 BC=0 

2 FC=7 

3 NT=0 

9 p=0;Q=0 

10 CLEAR 

11 Z=0;X=0;M=0;N=0;U=0;W=0 

16 CLEAR 

17 M=M+5;N=N+10;U=U+15;W=W+5 

26 CLEAR 

27 K=KN(1)c4 

30 X=X+JX(l)bl0 

31 PRINT Z 

40 P=P+RNB C10J-RND (10) 

41 IF P<-50IF P>50P=50 

45 Q=Q+RND (6)-RND (6) 

46 IF Q<-20IF Q>40Q=40 

50 BOX P, Q, 4,4,1 

51 BOX P,Q,8,1,1 

52 BOX P-5,Q,1,6,1 

53 BOX P+4,Q,1,6,1 

90 Y=-39 

91 .BOB: SENTIMENTAL REASONS PROMPT ME TO SEND MY FIRST BALLY GAME. 

92 .SORT OF MESSY & TROUBLESOME BUT NEEDS SOME SKILL TO WIN 

93 .USE CNTL. #1 

94 .I LEAVE THIS ONE TO THE IMPROVEMENT GENIUSES 

100 BOX X,Y,30,10,3 

101 BOX X,Y+S,5,5,3 

102 BOX X-15,Y+10,1,10,3 

103 BOX X+14.Y+10,1,10,3 

135 BOX X,K,1,15,3 

136 BOX X,K,15,1,3 

137 PRINT ' 

138 IF TRC1)=1G0SUB 150 
140 GOTO 16 

150 LINE X-15,Y+15,4 

151 LINE X,K,3 

156 NT=4;MU=989;NT=0 

157 PRINT " 

160 LINE X+14,Y+15,4 

161 LINE X,K,3 

163 NT=7;MU=989;NT=0 

165 PRINT " 

166 BOX X,K,5,5,3;NT=10;MU=1 

167 BOX X,K,10,10,3;MU=2 

168 BOX X,K,15,15,3;MU=3 

169 BOX X,K,20,20,3;MU=4;NT=0 

170 Z=Z+1 

171 CX=-70;CY=40;PRINT Z 

172 IF Z=10GOTO 997 


I Kc© 

w , (g ijU^Cs. 


175 IF Z=3G0SUB 2000 
17G IF Z-SGOSUB 2000 
177 IF Z-8G0SUB 2000 

180 IF X>P-3IF X<P+3IF K>Q-3IF K<Q+3G0T0 1010 
200 RETURN 
987 LINE P,G,4 

998 LINE X,Y,3 

999 NT=10 

1000 BOX X,Y+10,5,5,3;PRINT "cl00" 

1001 BOX X,Y+10,10,10,3;PRINT ”c300" 

1002 BOX X,Y+10,15,15,3;PRINT "c500" 

1003 BOX X,Y+15,30,30,3;PRINT "c700" 

1004 BOX X,Y+25,40,40,3;PRINT "c800" 

1005 PRINT "YOU ARE";PRINT "DESTROYED";PRINT " 

1006 NT=0;RUN 

1010 NT=10;PRINT "blb3b5“;NT=0 
1018 BOX X,K,40,30,3 

1020 NT=10;PRINT “CONGRATULATIONS" 

1021 PRINT "ENEMY DESTROYED";NT-0 
1025 BOX X,K,30,20,3 

1030 NT=10;PRINT "888“;NT=0 

1040 RUN 

2000 LINE P,Q,4 

2010 LINE X,Y,3 

2011 NT=50;MU=Z 

2015 BOX k>Y,10,10,3 

2016 NT=5 

2020 PRINT "SHIELDS DAMAGED" 

2025 PRINT “ 

2027 NT=0 
2030 RETURN 

> 


>*PRINT ;LIST 

1 NT=0;M=0;CLEAR 

2 BC=80;FC=15 

3 G=0 

7 BOX -69,0,1,76,1 

8 BOX -3,0,1,76,1 

9 BOX 3,0,1,76,1 

10 BOX 69,0,1,76,1 

11 BOX -35,38,66,1,1 

12 BOX 37,38,66,1,1 

13 BOX -35,-38,66,1,1 

14 BOX 36,-38,66,1,1 
20 GOTO 10000 

30 .LIFE IU 

31 .BELIEOE IT OR NOT 

998 M=M+1 

999 CX=-75;CY=40;PRINT 
1000 FOR X=-66T0 -6STEP 
1009 GOSUB 4010 
1165 NEXT X 

1998 M=M+1 

1999 CX=-3;CY=40;PRINT #1,M 

2000 FOR X=6T0 66STEP 2 
2009 GOSUB 4010 

2165 NEXT X 

3000 GOTO 998 

4010 FOR Y=-35T0 35STEP 2 

4015 IF TR(1 )G=1 

4016 IF TRC 2)G=0 

4017 IF TR(2)GOTO 6000 
4020 IF G=1GQT0 4026 

4025 IF Y=-35G0T0 7000 

4026 8=0 

4028 BOX X-1,Y,1,1,3 

4035 D=X-2;B=X+2;E=Y-2;F=Y+2 

4045 fl=PX( D, F )+PX( X, F )+PXC B, F )+PXC D, Y )+PXC B, Y )+PX( D, E )+PX( X, E )+PX( B, E ) 
4105 BOX X-l.Y,1,1,3 
4200 IF X<0 B=X+70 
4210 IF X>0 D=X-70 

4220 IF PX(X,Y ) IF (8#2 ) + (8#3>=2 BOX D,Y,1,1,2 

4230' IF PX(X,Y) IF (8=2)+C8=3)=1 BOX D,Y,1,1,1 

4240 IF PXCX,Y)=0 IF 8=3 BOX D,Y,1,1,1 

4250 IF PXC X,Y)=0 IF 8#3 BOX D,Y,1,1,2 

4260 NEXT Y 

4270 Y=-35 

4275 BOX X-l,Y,1,1,1 

4280 BOX X-l,Y,1,1,2 

4300 RETURN 

6000 FOR K=1T0 8 

6010 NEXT K 

6020 GOTO 4270 
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BOB THIS IS THE OERSION I USE 

#1,M 

2 


7000 H=X-2;J=X+2 

7001 Q=X-1 

7002 FOR S=-35T0 35STEP 2 
7005 BOX Q,Y,1,1,3 

7010 IF ( PXC J, S > )+C PXC H, S ) )+C PXC X, S+2 ) )#0GOTG 9000 
7017 BOX G,Y,1,1,3 

7019 NEXT S 

7020 GOTO 4280 

9000 Y=S-2;GOTO 4026 
10000 X=-36;Y=1 

10005 BOX X,Y,1,1,3 

10006 BOX X,Y,1,1,3 

10010 IF TRCDBOX X,Y,1,1,1 

10011 IF TRCDBOX X+70.Y, 1,1,1 
10015 IF TRC2)GOTO 998 

10020 X=X+2bJXC1) 

10030 Y=Y+2bJY(1) 

10040 GOTO 10005 


0123456789:;< = >?@ABCDEFGHIJKLMNOPQRSTUUWXYZ C\3t_'abcdefghijklmn 
0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUUW&YZCMt_'abcdefghijkImn 
0123456789: ; < = >?@ABCDEFGHI JKLMNOPQRSTUUWXYZCMT ^ 

= 2 .DELETE 150, 160 FOR MANUAL USE Y 

3 .TRC1 ) GIUES A NEW LETTER 

4 .TRC2) REPEATS LAST LETTER 

81 CLEAR 

82 NT=0 

83 M=10 

84 N=10000 

100 CX=-78;CY=42 
105 NT=3 

150 FOR G=1T0 1000;NEXT G 
160 GOTO 300 

200 IF TRC1)+TRC 2)=0GOTO 100 

250 IF TRC1)GOTO 300 

260 IF TRC 2)GOTO 400 

300 CLEAR 

305 GOSUB 900 

310 B=1000+A 

320 GOSUB B 

325 FOR I=1T0 20;NEXT I 

330 GOTO 100 

400 CLEAR 

405 GOSUB B 

410 GOTO 100 

900 A=RND C 26) 

910 RETURN 

1001 PRINT M;PRINT N;NT=0;PRINT "A";RETURN 

1002 PRINT N;PRINT M;PRINT M;PRINT M;NT=0;PRINT "B*;RETURN 

1003 PRINT N;PRINT M;PRINT N;PRINT M;NT=0;PRINT “C”;RETURN 

1004 PRINT N;PRINT M;PRINT M;NT=0;PRINT “D”;RETURN 

1005 PRINT M;NT=0;PRINT "E";RETURN 

1006 PRINT M;PRINT M;PRINT N;PRINT M;NT=0;PRINT "F";RETURN 

1007 PRINT N;PRINT N;PRINT M;NT=0;PRINT ”G";RETURN 

1008 PRINT M;PRINT M;PRINT M;PRINT M;NT=0;PRINT "H";RETURN 

1009 PRINT M;PRINT M;NT=0;PRINT "I";RETURN 

1010 PRINT M;PRINT N;PRINT N;PRINT N;NT=0;PRINT “J";RETURN 

1011 PRINT N;PRINT M;PRINT N;NT=0;PRINT “K“;RETURN 

1012 PRINT M;PRINT N;PRINT M;PRINT M;NT=0;PRINT “L";RETURN 

1013 PRINT N;PRINT N;NT=0;PRINT "M";RETURN 

1014 PRINT N;PRINT M;NT=0;PRINT "N“;RETURN 

1015 PRINT N;PRINT N;PRINT N;NT=0;PRINT "O";RETURN 

1016 PRINT M;PRINT N;NT=0;PRINT "P“;RETURN 

1017 PRINT N;PRINT N;PRINT M;PRINT N;NT=0;PRINT ”Q";RETURN 

1018 PRINT M;PRINT N;PRINT M;NT=0;PRINT "R";RETURN 

1019 PRINT M;PRINT M;PRINT M;NT=0;PRINT ”S“;RETURN 

1020 PRINT N;NT=0;PRINT "T‘;RETURN 

1021 PRINT M;PRINT M;PRINT N;NT=0;PRINT ”U“;RETURN 

1022 PRINT M;PRINT M;PRINT M;PRINT N;NT=0;PRINT “U";RETURN 

1023 PRINT M;PRINT N;PRINT N;NT=0;PRINT ”W";RETURN 

1024 PRINT N;PRINT M;PRINT M;PRINT N;NT=0;PRINT "X”;RETURN 

1025 PRINT N;PRINT M;PRINT N;PRINT N;NT=0;PRINT “Y“;RETURN 

1026 PRINT N;PRINT N;PRINT M;PRINT M;NT=0;PRINT "Z";RETURN 

> 
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2 . 

3 . 

A .PSYCHIC TEST 
5 .BY MATT GIWER 
S NT=0;CLEAR 

7 BC=56;FC=100 

8 M=0;N=0 

S PRINT "USE JX(l) TO MOUE INDICATOR TO YOUR CHOICE 
10 PRINT 'PULL TRIGGER 
20 FOR A=1T0 1500;NEXT A 


30 CLEAR 
90 CY=25 
95 X=-45 





Q 1 NT=0s CLERR 

2 BC=5S 

3 FC=100 
5 M=0;N=0 

G -TEST YOUR PSYCHIC POWER 
7 .MOUE JX(1), PULL TRC1 ) 
90 CY=2S 
95 X=-45 
100 GOSUB 1000 
105 X=-15 
110 GOSUB 2000 
115 X=15 
120 GOSUB 3000 
125 X=45 
130 GOSUB 4000 
300 S=S+JX(1)ta30 
310 IF S<-45 S=-45 
320 IF S >45 S=45 

330 CX=S$CY=0SPRINT ‘T 

331 CX=S;CY=0SPRINT “ 


335 IF TR(1 ) GOTO 400 
340 GOTO 300 

400 P=RND C 4) 

401 X=-30;CY=-20 

402 GOSUB Pbl000 
410 IF I=S M=M+1 
420 Nf=N+l 

425 CX=30sCY—20 

430 PRINT # 1, M, " ,#1,N, 

450 IF N=100GOTO 600 
500 GOTO 300 

G00 CX=-75;CY=-35;PRINT #1,"CHfiNCE=",Nc4, 
950 STOP 
1000 CX=X 

1020 BOX CX,CY,20,20,2 
1023 BOX CX,CY,20,20,1 
1025 BOX CX,CY,1G,1G,2 
1030 I=-45 
1900 RETURN 
2000 CX=X 

2010 BOX CX,CY,20,20,2 
2020 BOX CX,CY,20,2,1 
2025 BOX CX,CY,2,20,1 
2030 I=-15 
2900 RETURN 
3000 CX=X 

3010 BOX CX,CY,20,20,2 

3020 BOX CX,CY+7,20,2,1 

3021 BOX CX,CY,20,2,1 

3022 BOX CX,CY-7,20,2,1 
3030 1=15 

3900 RETURN 
4000 CX=X 

4010 BOX CX,CY,20,20,2 

4020 BOX CX+7,CY,2,20,1 

4021 BOX CX,CY,2,20,1 

4022 BOX CX-7,CY,2,20,1 
4030 1=45 

4900 RETURN 




.7 .PRIME NUMBERS 

2 .150b70 DISPLAY 

3 .BOX X=2 IGNORES EUENS 
5 BC=10 

B FC=2Z 

7 NT=0 

8 1=1 
10 CLEAR 

100 .LEFT # IS THE PRIME 

110 .CENTER # IS THE NUMBER OF THE PRIME 

300 FOR M=5T0 15000STEP 2 

310 FOR K=3T0 Mc2STEP 2 

320 IF (McK)bK=MNEXT M 

330 NEXT K 

335 1=1+1 

340 CX=-75;CY=35;PRINT #4,M 

345 CX=0;CY=35;PRINT #4,1 

400 S=Mcl50 

410 Y=-35+S 

420 T=M-150bS 

430 X=-75+T 

440 BOX X,Y,2,1,1 

450 NEXT M 


337 
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Income Tax 
By Hugh Pitler 


This program figures the taxable income based on 10lj.0 
long form, schedule TC Cif needed), and schedule A ( itemized 
deductions )• 


After entering all required data it will compute the 
taxable income and will instruct you to look up the tax 
in the tax tables or the tax rate schedule. If the latter 
is used, there is a special subroutine that will calculate 
the tax. When the special symbols appear enter the values 
from the appropriate line of the appropriate tax rate 
schedule as follows: 


Example: 


But not 

Over- over- 


Of the 
amount 
over- 


120,200 $ 2lj ., 600 # 3*273 + 28 # $ 20,200 


Symbol means enter 3 273 

Symbol n %" means enter'-28 

Symbol ”of amount over” means enter fOiOO 

Because of integer basic, the tax amount might be in error 
as much as $10 due to rounding errors, so don’t expect 
exact results. Also remember Tiny Easic has a maximum of 
32767 so if your income is over this amount you can’t use 
this program. 

there are a number of items that had to be left out due 
to memory limitations. People with different situations 
might want to substitute other options. It is useful, 
however, for estimating tax verious ways for quick com¬ 
parisons. 

The program uses all the memory so conserve bytes in every 
possible way. One useful way is to use the command form 
of a word instead of spelling the word out; like the "for” 
in line 2001. 

The program is based on the 1979 tax laws for deductions 
etc. so it will have to be modified slightly for future 
years. However, this is easily done as the program is fairly 
straight forward. 
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2 .INCOME TAX 

3 .BY HUGH FITLER 
1500 :RETURN 

1510 NT=0;PRINT 

2000 PRINT “INPUT FILING STATUS";PRINT 

2001 PRINT “1 FOR SINGLEPRINT "2 FOR MARRIED-JNT";PRINT “3 FOR MRRRIED-SEP”;PR 
INT "4 FOR HERD OF HOUSEHOLD 

2002 INPUT "5 FOR WIDOW“T 

2005 IF (T<1)-CT>5)CLERR ;PRINT ;GOTO 2000 

2006 PRINT 

2010 INPUT ”# EXEMPT.(32 MRX.)”S 
2020 INPUT "W-2 WRGES"C 
2030 INPUT “INTEREST INCOME“E 
2035 H=0 

2040 INPUT “DIUIDEND INC.“F;IF F<=0F=0;GOTO 2050 
2043 G=F;IF G>100G=100 
2046 H=F-G 

2050 INPUT "ST.INC.TRX REF' D“F 

2060 INPUT "BUS.INC.SCH.C"G 

2070 INPUT “CAP.GRIN OR LOSS"U 

2080 INPUT “SUPL.INC.SCH.E"J 

2090 INPUT “OTHER INC.“L 

2100 M=C+E+H+F+G+U+J+L 

2105 PRINT “TOT.INC.",M 

2110 INPUT "MOU.EXP.*3903"C 

2120 INPUT "EMP.BUS.EXP.#2106”E 

2130 D=M-C-E;PRINT “RDJ.GROSS INC.“,D 

2140 PRINT "ITEMIZE? Y OR N 

2150 IF KP=“N“GOTO 2900 

2180 PRINT 

2190 PRINT “MEDICAL 

2200 PRINT “INPUT TOTAL HOSP.INS.PREM.INPUT *“A 

2210 B=Ac2;IF B>150B=150 

2220 INPUT "DRUGS“C 

2230 F —C- ( Dc100);IF F<0F=0 

2240 G=R-B 

2250 INPUT “DR. & DENTIST“H 
2260 INPUT "HOSP.“K 
2270 INPUT “OTHER“J 

2280 M=( F+G+H+K+J)--(Dcl00b3 ); IF M<0M=0 

2285 Y=B+M;PRINT “TOTAL MEDICAL“,Y 

2295 PRINT 

2300 PRINT “TAXES 

2305 INPUT "ST.INC.“A 

2310 INPUT “REAL EST.“B 

2330 INPUT "SALES“E 

2340 INPUT "PERS.PROP“F 

2350 INPUT “OTHER“G 

2360 A=R+B+E+F+G;PRINT "TOTAL TAXES",A 
2362 PRINT 

2365 PRINT "INTEREST 
2370 INPUT "MORTGAGE“B 
2380 INPUT "CREDIT“C 




2390 INPUT ’OTHER"E 

2-400 B=B+C+E; PRINT "TOTAL INTEREST",B 
2405 PRINT 

2410 INPUT “CONTRIBUT.“C 
2420 K=0;PRINT 

2430 PRINT "CASUALTY LOSS? Y OR N";IF KP="Y"GOSUB 4000 
2435 PRINT 

2440 INPUT “MISC.DEDUCT'F 

2450 R=A+B+C+F+K+Y;PRINT 'TOT.DEDUCT.“,R 
24G0 GOSUB 4800-K Tb10) 

2470 U=R~P;IF U<0U=0 

2480 PRINT "EXCESS ITEMIZED DEDUCT.",U 

2490 IF KPGOTO 2910 

2900 U=0 

2910 A=D-U 

2915 CLEAR ;PRINT 

2920 GOTO 5000 

2925 PRINT 

4000 INPUT “LOSS BEFORE INS.REIMB.'G 

4010 INPUT "INS.REIMB."H 

4020 I=G-H;IF I<01=0 

4025 J=I;IF I>100J=100 

4030 K=I-J;IF K<0K=0 

4035 PRINT "CAS.LOSS DEDUCT.",K 

4040 RETURN 

4810 P=2300;RETURN 

4820 P=3400;RETURN 

4830 P=1700;RETURN 

4840 P=2300;RETURN 

4850 P=3400;RETURN 

5000 IF C T=2)-(A<=20000)GOTO 5200 

5020 A=A-t1000bS);IF A<0A=0 

5030 GOSUB 8000 

5040 GOSUB 8500 

5050 GOSUB 7000 

5080 GOSUB 6000;GOTO 5410 

5200 GOSUB 8000 

5210 PRINT "WITH",#2,S," EXEMPT. 

5220 PRINT "FROM TAX TABLE 
5230 GOSUB 7000 

5400 PRINT ;INPUT "INPUT TAX:“X 
5410 INPUT "ENERGY CREDITS"Y 
5420 B=X - Y;IF B<0B=0 
5430 INPUT "OTHER TAXES OWED'Z 
5440 PRINT "TAX:",B+Z 
5450 STOP 

G000 PRINT ;GOSUB 8500;PRINT "INPUT : 

6010 INPUT “S+"B 
G020 INPUT "5i"C 
G030 INPUT "OF AMT. OUER"D 
6040 X=((A-D)cl00bC)+B 
6052 RETURN 

7000 PRINT “USING FILING STATUS",#2,TRETURN 

8000 PRINT “FIND TAX ON",A;RETURN 

8500 PRINT "FROM TAX RATE SCHEDULE";RETURN 

>uixyzC: }-''0123456789: ; < = >?@ABCDEFGHI JKLMNOPQRSTUUWXYZCM t_'abcdef gh i jk I mnopqrstuu 
0123456789: ; < = >?@AECDEFGHIJKLMNOPQRSTUUWXYZC\3 1_ 'abcdef gh i jk I mnopqrstuuwjz.C ' 3~0 



UBTTZ4L 

/Match 

7}WtSCtoA* 


5 .LETTER MATCH ^ , 

v't* B .BY BOB HISEMAO 

10 CLEAR ;G=1 

20 INPUT "# OF PLAYERS?" A 
22 BC=15;FC=99 

25 C=A;FOR A=50TO 55;@CA)=0; NEXT A 
30 CLEAR ;A=1 
40 FOR Y=0TO 24 
50 @CY)=Y+l;@CY+25)=Y+l 
55 IF Y<12G=1 

50 MU=Y+30;2=Ycl0;GOSUB 800 
70 MU=Z+RM;Z=CY+25)c10;GOSUB 800 
80 NEXT Y 
90 FOR Y=0TO 49 




UcTTZ <l 
Match 
'bJptisetoA*/ 




100 

110 

120 

132 

140 

150 

155 

160 

170 


185 

130 

195 

200 

210 

220 

230 

240 

250 

260 

270 

280 

500 

510 

520 

530 

532 

533 
540 
550 
560 
570 
600 
610 
620 
625 
630 


810 


320 

930 

940 

950 

960 

970 


2 RND ( 50)-1;D=@(Y);@(Y)=@(Z);Z)=D 
NEXT Y;F=50;8=0 
8=8+1;IF A>C fi=l 

GOSUB 810; PRINT ”PLAYER",*2,ft "' S TURN 
GOSUB 500;D=X 
GOSUB 500;E=X 

IF E=DGOSUB 810; PRINT "CHOOSE FlGRIN 

IF @CD)=@CE)GOTO 200 

G=l;Z=Dc10;GOSUB 800 

Z=Ec10;GOSUB 800 

GOSUB 810;PRINT ‘NOT ft MftTCH 

FOR X=1T0 30;MU=“*";NEXT X 

GOTO 120 

F=F-2 

@(D)=0;@(E)=0;G=0 
2=Dc10;GOSUB 800 
2=Ec10;GOSUB 800 
50+fl)=@(50 +fl ) +2 

GOSUB 810;PRINT "YOU MftDE ft MATCH 

IF F=0GOTO 900 

FOR X=1T0 20;MU=“T";NEXT X 

GOTO 140 

IF TRC ft )=1X=B;GOTO 600 

I=Bcl0;J=-38+8bRM;K=16-Ib8 

BOX J, K, 4,4,3;BOX J,K,4,4,3 

L=JX(ft);M=JY(ft)bl0 

IF L=0IF M=0O=0;GOT0 500 

IF 0=1G0T0 500 

B=B+L-M;0=1 

IF B< 0 B=0 

IF B >49 B=49 

GOTO 500 

IF @(X )=0MU=“M“;GOTO 500 
Z=Xcl0;G=0;GOSUB 800 

I=Xc10;CX=-38+8bRM;CY=16-Ib8 

TU=@(X)+64 
RETURN 
IF G=0 G=2 

BOX -38+8bRM,16-Zb8,7,7 G 
RETURN 

CX=-75;CY=40;RETURN 
FOR H=1T0 50;NEXT H 
CLEAR 

FOR A=1T0 C 

NEX^fl " PLflYER # ” ’ #2 ' fi ' “ SCORED" , #3, • C 50+ft ) 

IF TR(1)=1G0T0 10 
GOTO 950 
LIST 600,1 


62o rt = //5>H; B-ll6j @C e-d - vSj eCj’i) z *t?;GoSuG /ooo 
63 o PP/NT 'PRiNT * PEP MONTH 
6^0 ftf/NT 

l/o /fttfiuT “ / : ANoTHS/j 2 - Scti£C>UL£* $ 

7 VO IF 5r; PRINT ; p,At NT "frONTtf Min. /NT. Balance" ■ pft/NTj GoTo 3oo 

"?6o GoTo V 

/ ooo Z - IJ FM K : Fx TO Q STcfi - f 
toio )E fvCk)' 0 l F t Goto /030 
lolo Z-Oj TV- @C f) 

Io 2 o HEKT < 

/£> to TV “ ^; TV' @Cb- dj T ^ ^ B '-*) 

to SO AtTuM 

n<ro p/N/vT # t j /vi^ cx : ~3o- fpi/vTj ; ri ~ Z'oj rsPoG; GoSus iooo 
ti/o Cxz-/ 1 ;PR/nt j ' 3 fi-m; B-noyGoSua ho* 

CX-A3; Ml NT;; I s%; ts*j GoiuS /Ooo 

"3o PRinT j PE Turn 

Moo 8C~ I7S; PPint; PR/nt‘‘last /afauent js p “ *> 

lA/O b(* 0 i) = O; &C/ 6 l),$ C/98) 

U Ao ft ~ xto; B ; Z06J GoSoq /ooo 

/Abo tf/A/T l PRINT. ;Mwr “Me?s Go ' "j K * KP } Goto H 

noo & Ow)j e 0*6 ) 

10 3-6 Uft), e Oh) , F Cl+v); Goto V 80 


LoftN PpoGr&A/* BRsakoown —- D • BPAnuneR. 

/ - V PA£‘A,k8l£ 

£ T/TFE 

? CL£A£ ST/MG-s 

to - 2.10 ft E-QuEST * S7h>££ CoAss O/TrA 
loo PUPUC/iTZ LOAts ArnouHT 

Voo — ¥?o CALOJtATC <bt*SOi//v£) Sr/T<£,?£^7~ 

S*>—630 Total. INTEREST STV/TC/hess-r 

6Vo - 7to SET US AA/MEa/T SCHEOoaE H>R*>A-r 

I ooo - toEo CULCULDTbT PRINTOUT P,OU7//v£ 

1100-1710 SCHEDULE printout RouTi/vE ^ 

/Too — i3/o coNt>moH stPin^s foil final PATMEnt statement 




-p- 

1 -MIN. SZ=502 

2 .LOANS 

3 :RETURN ;NT=1 

4 CLEAR ;PRINT ;S=0;BC=250;EC-7 

G PRINT " ®$S LOANS $$*";PRINT 

7 FOR R=0TO 251;@(R)=0;MU=R;NEXT R 
10 INPUT "# OF DIGITS IN LORN AMOUNT CMAX 5)"N 
20 PRINT “LORN RMOUNT? $", 

30 fl=N+7;B=8;GOSUB 40;GOTO 100 

40 FOR A=RTO BSTEP -1;R)=KP;TU=@CR);NEXT R;PRINT ;RETURN 
100 PRINT "INT. RATE CTO 4 PLACES)? % . ", 

110 A=61;B=58;GOSUB 40 ;. ’ 

150 @(81 )=1;@(80)=2 
1G0 $c@( 54), @(72), @(90) 

170 INPUT “# OF DIGITS IN PAYMENT ?"H 
180 PRINT "ONTHLY PAYMENT ? $ ", 

210 R=115+H;B=11G;GOSUB 40 

240 PRINT ;PRINT "COMPUTING”;PRINT 

300 S+@C0),d>( 126),@( 144) 

310 E=0 

400 FOR M=1T0 300 

405 IF S#2MU=M 

410 $b@( 144),@C90),@C 1G2) 

420 «+@(180),@(162),@C180) 

425 IF EGOTO 1300 

430 &-@(108),@(162),@(198) 

440 S~@(144 ),@(198),@(144) 

450 S-@C144),@C108),@C216) 

455 IF S=2G0SUB 1100 

4G0 IF @C233 )=56E=1;GOTO 410 

470 NEXT M 

480 BC=80;M=M+1 

489 IF S=2G0SUB 1100 

495 IF S=2G0T0 1200 

500 PRINT ;PRINT "TOTAL INT. IS % ", 

520 R=193;B=188;GOSUB 1000;PRINT 

G00 PRINT “REPAYMENT IS OUER",#3,Mcl2,“ YEARS 

G10 PRINT #3,RM,"MONTHS, AT $ ”, 

630 PRINT ;PRINT "PER MONTH 
G40 PRINT 

710 INPUT " 1 = ANOTHER; 2 = SCHEDULE”S 

740 IF S=2PRINT ;PRINT "MONTH PRIN. INT. BALANCE";PRINT ;GOTO 300 
7G0 GOTO 4 

1000 Z=1;FOR K=ATO BSTEP -1 
1010 IF @(K )=“0”IF ZGOTO 1030 
1020 Z=0;TU=@(K) 

1030 NEXT K 

1040 TU=4G;TU=@(B-1 );TU=@CB-2) 

1050 RETURN 

1100 PRINT #1,M,;CX=-60;PRINT ,;A=210;B=206;GOSUB 1000 
1110 CX=-18;PRINT ,;A=173;B=170;GOSUB 1000 
1120 CX=23;PRINT ,;A=158;B=152;GOSUB 1000 
1130 PRINT ;RETURN 

1200 BC=178;PRINT ;PRINT "LAST PAYMENT IS » “, 

1210 203 )=0;198),@C1G2),@(198) 

1220 A=210;B=20G;GOSUB 1000 

1230 PRINT ;PRINT ;PRINT "PRESS ' GO' ";K=KP;GOTO 4 
1300 ®+@C144 ) ,@C 234),198) 
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Ffi-OM V A*/o E/AMNSR 

A CATN/O sj- 

\J&ST F/tu-, 0A*1XA'° • 

c/\M/u>A • /yuei/v3 

Lq^n AayMSnTS No SS/Wes- — 

R(=QLnAE.S w*. SZ Sol Sfavz 


I . MlN. SZ -SoZ 
A- loftvs 

l: PETufikj •NT-I 

H clear j Hint • S-ojBC‘2S0; fc = i 

<B ffhNT " /// 

7 Foii A-OTo Z5/J @00- Oj mu : A; NExT A 

to Ih'PuT * T OF Digits /N LOAN Amour*r (mAX s) N 

ZRO PP/NT u LdAas Amount ? i j 

3o f)~ 7-hMj B~Sz GoSuq t+o- } Q oTo /oc> 

Ao FoR A t A To 8 STEP -Jj <$( a) 'FP } Tv ' €>(a); A'EXT A; PP/nt j PfTuPa/ 

10c PR/NT ‘VA/T. PATS (to V PLACES) ? % . ~ J 

Ho P' 6 /’ 8'52; GoSuB No 

/So @[ tl)-/; q(2o):1 

I6o $ + <pCsy) j &(? 2 ),@C9o') 

no input b ft op duzhts //v PprmFNT ? ' H 

/So PR/NT "Monthly Payment ? / ", 

A/o P-uSFH; &=H6>; GoSue Vo 

A¥o PR i n T ; PRINT " ComPut/no *; PP//vt 

3oo t i <® C o ),<& (txEjj @ ( /'Pi) 

3/a E ~ O 

Vor> For m -/To foo 

Vos if s fa mu-rn 

N(o $ X @ C /¥¥ X @t9o L @ C /6 a) 

$ t (SlU2o\ & (jiz), ®{j2o) 

Vis If egoto /300 
■ V3o $-<®(ioi ), e UtoX&Cnz) 

Mo $ - (SUWl & 0 n \> @ 

4SO> # UeSJ.@ LA/6) 

Vsr IF S-ZG-o$uB HOO 

YPo JF ^(722) - 56 E = lj Go-r 0 h/o 

HTo NEXT m 

Mo Be - m -m + i 

MH IF S~Z GosuB Uoo 

Me if Goto i*°o 

Too PPinT J PRint m Total InT. \S f j 

Sto P~ /93j B •/?(?' GoSuG /ooo; PR/nt 

6 oo PRint" Ac payment /s over \ #■ 3 j m tUj \ Years 

y 6/o PRint "& ", # 3, >" MONTHS, a ~f J "j 



>UUUUUUUUUUUUUUUU 3UUUU3 LiUUUUUULiUUUUUU 3 UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU3 uuuuuuuuu 
UU 3 UU 3 UUUU 3 UUUUUUUUUUUU 3 UUUUUUUUUUUU 
U 1 .MUSIC 

2 .C.N.MORIMOTO 

3 . 

4 :RETURN 

5 GOSUB 10 

G IF &(23)RUN 

7 IF &C2DST0P 

8 GOTO G 

9 .AMAZING GRfiCF 
10 NT=14;GOTO 70 

20 PRINT "205000757000G0500030", 

30 PRINT ”200020S0007S700060b2000000000*, 

40 PRINT “70b2007b27500020300553", 

50 PRINT ”2000205000757000605000000000“, 

60 RETURN 

70 CLEAR ;BC=2S;FC=29;GOSUB 20 
80 BC=G5;FC=G8;GOSUB 20 
80 CLEAR ;BC=114;FC=115;GOSUB 20 
100 BC=162;EC=163;GOSUB 20 
110 CLEAR ;BC=227;FC-228;GOSUB 20 
120 RETURN^ 


> 




1 .MUSIC 

2 .C.N.MORIMOTO 

3 . 

4 :RETURN 

5 GOSUB 10 

B IF &(23)RUN 

7 IF &C2DST0P 

8 GOTO 6 

9 .STAR WARS 

10 CLEAR ;BC=0;FC=251;NT=0 

20 &(0 )=0;&(1 )=0;&(2 )=0; &( 9)=53;&(10)=0 

30 CX=-30;CY=0;PRINT “STAR WARS", 

40 FOR A=80TO 100;FOR B=1T0 70;NEXT B;&(10)=A;NEXT A 
50 FOR A=25T0 11STEP -1;FOR B=1T0 50;NEXT B;&C9)=A;NEXT A 
80 FC=4 

70 FOR A=11TO 25;FOR B=1T0 100;NEXT B;&(9 )=A;NEXT A;&(9)=53 
80 NT=5 

90 CX=-77;CY=-10 

100 PRINT “202020500000000000b200000000000", 

110 PRINT "bl07060b500000000000b200000“, 

120 CX=-77;CY=-10 

130 PRINT “b107060bS00000000000b200000“, 

140 PRINT “b1070b10800000 200002", 

150 PRINT "500000000000b200000000000“, 

160 CX=-77;CY=-10 
170 GOSUB 440 

180 GOSUB 440 

190 PRINT “b1070b10800000 200002*, 

200 CX=-77;CY=-10 

210 PRINT “308000000300b100700600500”, 

220 PRINT “506070800300+400000200002“, 

230 PRINT “300000000300b100700600500“, 

240 CX=-77;CY=-10 

250 PRINT “b200000600000000000200002", 

260 PRINT “300000000300b100700600500“, 

270 PRINT “506070600300+400 b20000b2“, 

280 CX=-77;CY=-10 

290 PRINT "b50000b4-b30000b2b10000-7600005“, 

300 PRINT “b200000000000000000202020“, 

310 CX=-77;CY=-10 

320 PRINT "500000000000b200000000000“, 

330 GOSUB 440 
340 GOSUB 440 
350 CX=-77;CY=-10 

360 PRINT "b1070b10600000000000200002*, 

370 PRINT “500000000000b200000000000“, 

380 GOSUB 440 

390 CX=-77;CY=-10;FC=5 

400 PRINT “b50b40-b30-b700000000000b600000“, 

416 PRINT “b500 505050500000 

420 CLEAR ;FC=0;BC=251;&C10)=180 
430 RETURN 

440 PRINT "b107060b500000000000b200000“,;RETURN 



>@UUUUUUUUUUUUUUUU@UUUUUUU 3 UUUUUUUUUIJUUUUUUUUUUUUUU 3 UUUUUUUUUUUUUUUUUUUU 3 UUUUUUu 
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1 .MUSIC 

2 .C.N.MORIMOTO 

3 . 

4 :RETURN 

5 GOSUB 10 

6 IF &(23)RUN 

7 IF &(21)STOP 

8 GOTO S 

9 .STAR WARS 

10 CLEAR ;BC=0;FC=251;NT=0 

20 &(0)=0;&(1)=0;&(2)=251; & ( 9) = 128;&(10)=170 

30 FOR A=1T0 120; BOX RND ( 140 )-70, RND (88 )-4-4, 1, 1, 1; NEXT A 

40 CX=-30;CY=0;PRINT "STAR WARS", 

50 FOR A=170TO 94STEP -l;FOR B=1T0 40;NEXT B;&<10 )=A;NEXT A 
G0 FC=4;&C 2 )=4 

70 FOR A=128T0 180;FOR B=1T0 50;NEXT B;&(9 )=A;NEXT A 
30 NT=5;&(10)=180 
90 CX=-77;CY=-10 

100 PRINT "202020500000000000b200000000000", 

110 PRINT H bl070G0b500000000000b200000", 


BALLY BASIC 


cnK& jCjd 


3 BC=177;FC=173 
3 :RETURN ;NT=0;CLEfiR ;C=1 
3 PRINT " ***** OTHELLO ***** 

3 PRINT 

3 PRINT “THE OBJECT IS TO SURROUND 
3 PRINT “OTHER PLAYER'S SGUARECS) 
i PRINT "ON 2 OPPOSITE SIDES OR CORNERS 
3 PRINT 

3 PRINT “HOW MANY PLAYERS 7 
l INPUT “(1 OR 2)"D 






10 L=0;S=0;Z=0;CLEAR 

20 CY=-7;PRINT “ 5 q 

30 X=-10;Y=43 

40 FOR A=1T0 8 

30 BOX X, Y, 11, 11, l 

30 BOX X,Y,9,3,2 

?0 X=X+10 

30 NEXT A 

30 Y=Y-10;X=-10;2=2+1;M=1 
30 IF 2<9G0T0 140 
L0 P=2;X=4;Y=5;GOSUB 430 
- 0 P=1;X=4;Y=4;GOSUB 430 
30 P=1;X=S;Y=5;GOSUB 430 
!0 P=2;X=5;Y=4;GOSUB 430 
i0 M=0; P=RND (2) 

10 CY=43 

'0 IF D=1IF P=1PRINT "MY TURN";PRINT "PLEASE 
0 PRINT " DOWN 
0 PRINT " THEN 
0 PRINT “ACROSS 
0 IF L+S >63A=KP;GOTO 20 
0 CY=3 

0 IF D=1IF P=lGOTO 2G0 
0 IF P=2G0T0 410 
0 PRINT "LARGE";PRINT 
3 INPUT “D ="Y 
3 IF C Y=0)-(Y >8)GOTO 320 
3 INPUT "A ="X 
3 IF (X=0 )-(X>8)GOTO 320 
3 GOTO 430 

3 PRINT "SMALL";PRINT 
3 GOTO 360 
3 X=-20+Xbl0 
3 Y=43-Yb10 
3 IF PXCX,Y)GOTO 320 
3 IF P=1B0X X,Y,7,7,1 



PRINT "PATIENT";GOTO 1000 






470 IF P=2B0X X.Y.3,3,1 
480 IF P=IIF C#0L=L+1 
430 IF P=2IF C#0S=S+1 
500 IF M=1RETURN 

510 T=0;W=X;U=Y;Q= 0 ;c =0 

520 IF PXC X,Y+10 )Y=Y+10;GOTO 730 
530 T=20;X=W;Y=U;Q=0 

550 ^^f^£i’ WW1B,1Mr+10,eOTO ^ 
5G0 IF PXCX+10,Y)X=X+10;GOTO 730 
=70 T=70;X=W;Y=U;Q=0 
380 IF Y<-40GOTO 640 

f!? f F ™i X+I0 ' Y - 10 »<-X+»0iV.Y-10 !S OTO 730 
300 T=30;X=W;Y=U;Q=0 

j10 IF PXCX,Y-10)Y=Y-10;GOTO 730 
!20 T-110;X=W;Y=U;Q=0 

-4R y F X~10,Y-I0 )X=X-10; Y=Y-10; GOTO 730 

>40 T=130;X=W;Y=U ; Q=0 

!50 IF PXCX-10,Y)X=X-10;GOTO 730 

G0 T=150;X=W;Y=U;Q=0 

70 IF P^C X-10,Y+10)X=X-10;Y=Y+10;GOTO 730 

80 IF C=0BOX W, U, 7,7,2;GOT0 320 

30 GOSUB 360 

00 IF P=1P=2;GOTO 720 

10 P=1 

20 GOTO 260 

In Jr o =2IF P><<:X+2 . Y+2 )Q=Q+1; GOTO 520+T 
J F F ~i IF PX<X+2 >Y+2)=0Q=Q+i;GOTO 520+T 
Jr r PX(X+ 2,Y + 2)=0T=T + 20;GOTO 770 
d0 IF P=1IF PXCX+2,Y+2)T=T+20 
7 0 IF Q=0X=W;Y=U;GOTO 520+T-10 
30 T=T-20 
30 FOR 2=1 TO Q 
30 IF T=0Y=Y-10 
0 IF T=20X=X-10;Y=Y-10 
■0 IF T=40X=X-10 
10 IF T=70X=X-10;Y=Y+10 
0 IF T=90Y=Y+10 
0 IF T=110X=X+10;Y=Y+10 
0 IF T=130X=X+10 
0 IF T=150X=X+10;Y=Y-10 
0 BOX X,Y,7,7,2 
0 C=1 

3 IF P=1B0X X,Y,7,7,1;L=L+1;S=S-1 
3 IF P=2B0X X,Y,3,3,1;L=L-1;S=S+1 
3 NEXT Z 

3 X=W;Y=U;Q=0;Z=0 
3 GOSUB 360 
3 GOTO 520+T+J 0 
3 CY=-26 

3 PRINT ”L=”,#3,L 
3 PRINT "S=",#3,S 
> RETURN 

3 X=RND C8);Y=RND C8) 

I IF L+S<10X=RNB C 4)+2;Y=RND C4 3+2 
I GOTO 430 


